1000 REM *** EIN SPRITE-JOJO
1010 :
1020 :
1030 REM ** AUSGABE PROGRAMMELDUNG
1040 :
1050 PRINT "[147]BITTE WARTEN";
1060 :
1070 :
1080 REM ** SPRITE-DATEN EINLESEN
1090 :
1100 FOR N = 896 TO 958
1110 :   POKE N,255
1120 NEXT N
1130 :
1140 :
1150 REM ** SPRITE-STEUERUNG
1160 :
1170 PRINT "[147]";    :REM BILDS.LOESCHEN
1180 POKE 2040,14  :REM DATENZEIGER
1190 :
1200 VIC = 53248   :REM VIC-BAUSTEIN
1210 POKE VIC,170  :REM HORIZONT. POS.
1220 POKE VIC+1,80  :REM VERTIKALE POS
1230 POKE VIC+39,13:REM GRUENES SPRITE
1240 POKE VIC+21,1 :REM SPRITE 0 EIN
1250 :
1251 :
1252 REM RUNTER, DANN HOCH
1253 :
1254 FOR VP = 80 TO 200
1255 :   POKE VIC+1,VP
1256 NEXT VP
1257 :
1258 FOR VP = 199 TO 81 STEP -1
1259 :   POKE VIC+1,VP
1260 NEXT VP
1261 :
1262 :
1270 REM ** PROG.ENDE NACH TASTENDRUCK
1280 :
1290 GET KP$
1300 IF KP$ = "" THEN 1254
1310 :
1320 :
1330 REM ** REGISTER ZURUECKSETZEN
1340 :
1350 POKE VIC+21,0 :REM RUECKSETZUNG
1360 POKE VIC+39,0 :REM IN UMGEKEHRTER
1370 POKE VIC+1,0  :REM REIHENFOLGE...
1380 POKE VIC,0
1390 :
1400 END